10 REM  C.START
20 F$="T.GALLERY#25"
30 FORI=1TOLEN(F$):POKE49152+I-1,ASC(MID$(F$,I,1)):NEXT
40 POKE49152+I-1,0
50 PRINT"[147]LOAD"CHR$(34)"COMMUNIQUE"CHR$(34)",8":PRINT"RUN"
60 POKE631,13:POKE632,13:POKE198,2:END